CAADiameters_PlutoSemidiameterB <-
function(Delta){
.Call("CAADiameters_PlutoSemidiameterB", Delta)
}
